home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pofo / readkey / test.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1992-12-09  |  488 b   |  23 lines
  1. { Turbo Pascal 5.5 unit READKEY.TPU for ATARI Portfolio
  2.   (C)1992 RoTo    Rostislav Tomes 
  3.  
  4.   TEST.PAS - simple program for testing READKEY.TPU
  5.              shows scan codes of keys or funcion keys
  6.              pressed on keyboard
  7. }
  8.  
  9. Uses ReadKey;
  10. Var ch:Char;
  11. Begin
  12.   Repeat
  13.     ch:=ReadExtKey;
  14.     Write(Ord(ch):3);
  15.     If ch=#0
  16.        Then Begin
  17.               ch:=ReadExtKey;
  18.               Write(':',Ord(ch):3);
  19.             End;
  20.     WriteLn
  21.   Until ch=#27;
  22. End.
  23. ə